home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / PLUG06.ZIP / aliases.ini next >
INI File  |  1997-03-14  |  5KB  |  122 lines
  1. [Aliases]
  2. n0=/nn /nick $$?="Enter New Nick name"
  3. n1=/op /mode # +o $$?="Nickname?"
  4. n2=/dop /mode # -o $$?="Nickname?"
  5. n3=/j /join $$?="Channel to join - add an # before channel name"
  6. n4=/p /part 
  7. n5=/n /names $$?="Channel to List Names"
  8. n6=/w /whois$$?="Nickname?"
  9. n7=/k /kick # $$?="Nickname?"
  10. n8=/q /query $$?="Nickname?"
  11. n9=/hop /part  | /join $$?="Enter Channel to go to."
  12. n10=/send /dcc send $$?="Who do tou want to send too:"
  13. n11=/chat /dcc chat $$?="Who do you want to chat with:"
  14. n12=/ping /ctcp $$?="Enter Nick name" ping
  15. n13=/online /ame has been online for %minutes minutes and %hours hours
  16. n14=/show /say Right now I'm on: 12 $+ $url $+  check it out!  
  17. n15=*********************************Nickserv**********************************
  18. n16=/nid /msg nickserv identify $$?="Password for Nickname:"
  19. n17=/nreg /msg nickserv register $$?="Password to set for nickname:"
  20. n18=*********************************Chanserv**********************************
  21. n19=/cid /msg chanserv identify $$?="Channel name:" $$?="Channel Password:"
  22. n20=/creg /msg chanserv register $$?="Channel to register:" $$?="Password to set for channel:" $$?="Description:"
  23. n21=*********************************Cloning***********************************
  24. n22=}
  25. n23=Clone {
  26. n24=if status isin $active {
  27. n25=  echo 4 ERROR: This Command Only Works in a Channel Window
  28. n26=halt }
  29. n27=%clonescount = 0
  30. n28=%nickcounter = 1
  31. n29=%clonesfound
  32. n30=%skipnicks = ...
  33. n31=echo 4 %logo Checking For Clones At $atime of $date %logo
  34. n32=:loop1start
  35. n33=:nick
  36. n34=%workingnick = $nick(%nickcounter,$active)
  37. n35=if ( %workingnick == $null ) { goto loop1end }
  38. n36=if ( %workingnick isin %clonesfound ) { inc %nickcounter | goto nick }
  39. n37=%workingaddress = $address(%workingnick,3)
  40. n38=if ( %workingaddress == $null ) { 
  41. n39=%skipnicks = %workingnick $+ , $+ %skipnicks | inc %nickcounter | goto nick }
  42. n40=inc %nickcounter
  43. n41=%nicksubcounter = %nickcounter
  44. n42=%clonessubcount = 0
  45. n43=%clonessubfound = ...
  46. n44=:loop2start
  47. n45=%currentnick = $nick(%nicksubcounter,$active)
  48. n46=if %currentnick == $null goto loop2end
  49. n47=if ( %workingnick != %currentnick && %workingaddress ) == $address(%currentnick,3) {
  50. n48=  inc %clonessubcount | inc %clonescount | 
  51. n49=  %clonessubfound = %currentnick $+ , $+ %clonessubfound 
  52. n50=%clonesfound = %currentnick $+ , $+ %clonesfound }
  53. n51=inc %nicksubcounter
  54. n52=goto loop2start
  55. n53=:loop2end
  56. n54=if ( %clonessubcount > 0 ) { echo 4 %logo Clones Detected %workingaddress - By $remove(%clonessubfound,,...) and %workingnick %logo }
  57. n55=goto loop1start
  58. n56=:loop1end
  59. n57=echo 4 %logo Number Of Clones ** $+ %clonescount $+ ** %logo
  60. n58=if ( $len(%skipnicks) > 3 ) { echo 4 %logo Address Not Found Of: $remove(%skipnicks,,...) %logo }
  61. n59=/unset %skipnicks
  62. n60=}
  63. n61=*********************************Kool Text*****************************
  64. n62=/kw {
  65. n63=%c = *1
  66. n64=set %c $replace(%c,a,4¬)
  67. n65=set %c $replace(%c,b,3B)
  68. n66=set %c $replace(%c,c,6C)
  69. n67=set %c $replace(%c,d,7D)
  70. n68=set %c $replace(%c,e,4e)
  71. n69=set %c $replace(%c,f,12F)
  72. n70=set %c $replace(%c,g,13G)
  73. n71=set %c $replace(%c,h,6H)
  74. n72=set %c $replace(%c,i,4i)
  75. n73=set %c $replace(%c,j,J)
  76. n74=set %c $replace(%c,k,3K)
  77. n75=set %c $replace(%c,l,L)
  78. n76=set %c $replace(%c,m,4M)
  79. n77=set %c $replace(%c,n,6N)
  80. n78=set %c $replace(%c,o,4║)
  81. n79=set %c $replace(%c,p,12P)
  82. n80=set %c $replace(%c,q,Q)
  83. n81=set %c $replace(%c,r,13R)
  84. n82=set %c $replace(%c,s,7S)
  85. n83=set %c $replace(%c,t,T)
  86. n84=set %c $replace(%c,u,4u)
  87. n85=set %c $replace(%c,v,V)
  88. n86=set %c $replace(%c,w,12W)
  89. n87=set %c $replace(%c,x,7X)
  90. n88=set %c $replace(%c,y,Y)
  91. n89=set %c $replace(%c,z,6z)
  92. n90=set %c $replace(%c,?,12┐15?4┐13?)
  93. n91=set %c $replace(%c,!,4!6í12!9í5!15í)
  94. n92=say %c
  95. n93=unset %c
  96. n94=}
  97. n95=/rw { %num = 1 | unset %msg  | %num2 = 1 | %msg = 
  98. n96=:start
  99. n97=%num2 = $rand(1,15)
  100. n98=if $mid(%num,1, *1) != $null {
  101. n99=  %msg = %msg $+   $+ %num2  $+  $mid(%num, 1,*1) $+    
  102. n100=  inc %num 
  103. n101=goto start  }
  104. n102=say %msg
  105. n103=} 
  106. n104=/rb {
  107. n105=set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  108. n106=:loop
  109. n107=set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  110. n108=inc %p
  111. n109=if ( $mid(%p,1,%i) != á) { inc %c }
  112. n110=if ( %c > 6 ) { set %c 1 }
  113. n111=if ( $mid(%p,1,%i) != $null ) { goto loop }
  114. n112=say %o
  115. n113=unset %o %i %p %c
  116. n114=}
  117. n115=******************************************F1 KEY*************************
  118. n116=f1 {
  119. n117=echo -a 1,0 $+ $str(1, áááááá)
  120. n118=echo -a 0,1Welcome to Plug InZ⌐ v6.0 Blast ▀y Jesse Boyer (aka AirDawg,  Pinnochio)
  121. n119=echo -a 4 $+ $str(1, áááááá)
  122.